home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 July / 1987-07.d64 / 64 books (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  5KB  |  124 lines
  1. 10 poke 53265,peek(53265) or 64:poke53282,0:poke53284,12
  2. 20 print"[147]";:poke53280,12:poke53281,12
  3. 30 a$="                              ":b$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
  4. 40 c$=""
  5. 50 mes$(1)="compute!'s machine language games":ms$(1)="[157]for the commodore 64"
  6. 60 mes$(2)="[157][157]the complete 64"
  7. 70 mes$(3)="electronic computer projects for"
  8. 80 ms$(3)="commodore and atari personal computers"
  9. 90 mes$(4)="compute!'s commodore 64/128":ms$(4)="[157][157]collection"
  10. 100 mes$(5)="compute!'s personal accounting manager"
  11. 110 ms$(5)="for the commodore 64 and 128"
  12. 120 mes$(6)="compute!'s telecomputing on the
  13. 130 ms$(6)[178]"commodore 64 "
  14. 140 mt[178]1
  15. 150 [141]1040:[153]""c$"this collection of seven of"
  16. 160 [153]c$"the best all ml games from":[153]c$"compute! magazine and"
  17. 170 [153]c$"compute!'s gazette is a must":[153]c$"for 64 game players and"
  18. 180 [153]c$"machine language programmers."
  19. 190 [153]c$"this book includes both the"
  20. 200 [153]c$"source code and object code":[153]c$"for the popular games"
  21. 210 [153]c$"syscut-off, sysmiami ice, sysnessie,"
  22. 220 [153]c$"sysheat seeker, syslaser beam,"
  23. 230 [153]c$"syswhirly bird, andsys":[153]c$"campaign manager."
  24. 240 [153][166]6)"a disk is available for"
  25. 250 [153][166]6)"sys$12.95 which includes the"
  26. 260 [153][166]6)"programs in the book."
  27. 270 [153]c$"sysisbn 0-87455-061-0    $16.95"
  28. 280 de[178]5000:[141]1100:[153]"load":[151] 53283,6:mt[178]mt[170]1:[141]1040
  29. 290 [153]""c$"a book/disk combination with"
  30. 300 [153]c$"six powerful, sophisticated":[153]c$"applications on disk. the  "
  31. 310 [153]c$"book has complete, easy to ":[153]c$"follow documentation for   "
  32. 320 [153]c$"each of the six applications."
  33. 330 [153]c$"it features sysspeedscript and  "
  34. 340 [153]c$"sysspeedcalc, compute!'s":[153]c$"commercial-quality word"
  35. 350 [153]c$"processor and spreadsheet"
  36. 360 [153]c$"programs; sysplus/term, an easy"
  37. 370 [153]c$"to use, yet versatile, tele-"
  38. 380 [153]c$"communications program;      "
  39. 390 [153]c$"and syssidplayer, a powerful "
  40. 400 [153]c$"music editor and player.sys":[153]c$"hi-resolution sketchpad and"
  41. 410 [153]c$"sysmini-filer are also included."
  42. 420 de[178]4500:[141]1100:[141]1040
  43. 430 [153]""c$"all the applications are on "
  44. 440 [153]c$"a disk ready to load and use"
  45. 450 [153]c$"on the commodore 64 and 128 ":[153]c$"running in 64 mode."
  46. 460 [153]c$"sys$29.95 for book/disk package"
  47. 470 [153][166]8)"sysisbn 0-87455-062-9"
  48. 480 de[178]2000:[141]1100:[153]"load":[151] 53283,2:mt[178]mt[170]1:[141]1040
  49. 490 [153]""c$"here's the easy way to     "
  50. 500 [153]c$"learn how computers interact"
  51. 510 [153]c$"with the outside world. using"
  52. 520 [153]c$"a commodore 64, 128, vic, or"
  53. 530 [153]c$"any eight-bit atari computer":[153]c$"and syselectronic computer"
  54. 540 [153]c$"projects, you'll be guided"
  55. 550 [153]c$"through the steps to building"
  56. 560 [153]c$"a joystick, light pen, game"
  57. 570 [153]c$"paddle, and numerous other"
  58. 580 [153]c$"devices. and since each"
  59. 590 [153]c$"project stands alone, you can"
  60. 600 [153]c$"choose only those projects"
  61. 610 [153]c$"that interest you. all the"
  62. 620 [153]c$"projects can be built at home"
  63. 630 [153]c$"and most require fewer than  "
  64. 640 [153]c$"half a dozen, easily obtained"
  65. 650 [153]c$"parts.":[153]c$"sysisbn 0-87455-052-1    $9.95"
  66. 660 de[178]5000:[141]1100:[153]"load":[151] 53283,6:mt[178]mt[170]1:[141]1040
  67. 670 [153]""c$"some of the best games,    "
  68. 680 [153]c$"applications and utilities "
  69. 690 [153]c$"from compute! publications "
  70. 700 [153]c$"for the commodore 64 and 128"
  71. 710 [153]c$"in 64 mode, plus special"
  72. 720 [153]c$"sections detailing the"
  73. 730 [153]c$"advanced features of the"
  74. 740 [153]c$"128."
  75. 750 [153]""c$"a disk is also available   "
  76. 760 [153]c$"which includes programs in "
  77. 770 [153]c$"the book."
  78. 780 [153]c$"sysisbn 0-942386-97-3    $12.95"
  79. 790 de[178]3500:[141]1100:[153]"load":[151] 53283,2:mt[178]mt[170]1:[141]1040
  80. 800 [153]""c$"an easy to use, complete   "
  81. 810 [153]c$"small business/home        "
  82. 820 [153]c$"accounting system that     "
  83. 830 [153]c$"satisfies every accounting ":[153]c$"need. from income and"     "
  84. 850 printc$"expenses to property and   ":printc$"investments."
  85. 870 printc$"a disk is also available"
  86. 880 printc$"which includes programs "
  87. 890 printc$"in the book."
  88. 900 printc$"[158]isbn 0-87455-014-9    $12.95"
  89. 910 de=3000:gosub1100:print"[147]":poke 53283,6:mt=mt+1:gosub1040
  90. 920 print""c$"an introduction to"
  91. 930 printc$"telecommunications with"
  92. 940 printc$"sections on buying and using
  93. 950 [153]c$"modems, accessing inform-
  94. 960 printc$"ation services and bulletin
  95. 970 [153]c$"boards, and uploading and
  96. 980 printc$"downloading files."
  97. 990 printc$"a disk is also available"
  98. 1000 printc$"which includes programs "
  99. 1010 printc$"in the book."
  100. 1020 printc$"[158]isbn 0-87455-009-2    $12.95"
  101. 1030 de=2500:gosub1100
  102. 1031 mt=8:gosub1040:print""c$"  to order, call toll-free "
  103. 1032 print""c$"      1-800-367-6767       "
  104. 1033 print""c$"   (in ny, 212-887-8527)   "
  105. 1034 print""c$"         or write:"
  106. 1035 print""c$"      compute! books"
  107. 1036 print""c$"     customer service"
  108. 1037 print""c$"       p.o. box 5038
  109. 1038 [153]""c$"      f.d.r. station
  110. 1039 print""c$"    new york, ny 10150":de=3000:gosub1100:goto 1120
  111. 1040 te$=mes$(mt):gosub1090:print"[147][153]";
  112. 1050 if ms$(mt)="" then print""tab(x)mes$(mt):goto1070
  113. 1060 print tab(x)mes$(mt):te$=ms$(mt):gosub1090:print""tab(x)ms$(mt)
  114. 1070 print"    "b$:fori=1to19:printspc(3)a$"[146][160]":next:printspc(3)a$""
  115. 1080 return
  116. 1090 x=int(20-(len(temp$)/2)):return
  117. 1100 for x=1to de:get inkey$:if inkey$="" then next
  118. 1110 return
  119. 1120 print"[147]":poke 53265,peek(53265)and 191
  120. 1130 s$="l[207]"+chr$(34)+"mn"+chr$(34)+",8:"+chr$(131)
  121. 1140 fori=1tolen(s$):poke630+i,asc(mid$(s$,i)):next:poke198,i
  122. 1150 poke53281,15:poke53280,15
  123. 1160 printchr$(142)"[145]          reloading the menu[155]":end
  124.